﻿Option Explicit On
Option Strict On

Partial Class Controls_PersonEdit
    Inherits System.Web.UI.UserControl



    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            BlankAll()
        Else

        End If

    End Sub
    Protected Sub ImageButton1_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        BlankAll()
        ImageButton1.ImageUrl = "~/i/greenlight.gif"
        lblIntention.Text = "You own or manage at least one business and intend to manage your list(s) and campaign(s) yourself."
    End Sub
    Protected Sub ImageButton2_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImageButton2.Click
        BlankAll()
        ImageButton2.ImageUrl = "~/i/greenlight.gif"
        lblIntention.Text = "You own or manage a business and intend to manage your list(s) and campaign(s) yourself and also have them managed by your employees, colleagues and/or associates."
    End Sub
    Protected Sub ImageButton3_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImageButton3.Click
        BlankAll()
        ImageButton3.ImageUrl = "~/i/greenlight.gif"
        lblIntention.Text = "You intend to manage your organisation's list(s) and campaign(s) as an employee, colleague or associate of that company/organisation"
    End Sub
    Protected Sub ImageButton4_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImageButton4.Click
        BlankAll()
        ImageButton4.ImageUrl = "~/i/greenlight.gif"
        lblIntention.Text = "You intend to act as an agent for one or more different businesses independently managing their list(s) and campaign(s).."
    End Sub
    Protected Sub ImageButton5_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImageButton5.Click
        BlankAll()
        ImageButton5.ImageUrl = "~/i/greenlight.gif"
        lblIntention.Text = "You're too busy running your own business and would like someone to help you manage your list(s) and campaign(s)."
    End Sub
    Private Sub BlankAll()
        ImageButton1.ImageUrl = "~/i/redlight.gif"
        ImageButton2.ImageUrl = "~/i/redlight.gif"
        ImageButton3.ImageUrl = "~/i/redlight.gif"
        ImageButton4.ImageUrl = "~/i/redlight.gif"
        ImageButton5.ImageUrl = "~/i/redlight.gif"
    End Sub

End Class
